home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1995 May / PC Answers CD-ROM 7 (Future Publishing) (May 1995).iso / vbits / code / pleas / ole / excel / debug.txt < prev    next >
Encoding:
Text File  |  1994-06-10  |  913 b   |  57 lines
  1. Dim XL As object
  2. Dim appXL As object
  3.  
  4. Dim ws As object
  5. Dim sheet As object
  6. Dim cell As object
  7.  
  8. Dim zot As object
  9. Dim zot1 As object
  10. Dim zot2 As object
  11. Dim zot3 As object
  12. Dim zot4 As object
  13. Dim zot5 As object
  14.  
  15. ?XL.Parent
  16. ?XL.Name
  17.  
  18. ?ws.Range("Test").Value(3)
  19. ?ws.Selection
  20. ?ws.Parent.Name
  21. ?ws.Range("test").Parent.Name
  22.  
  23. ?appXL.Parent
  24. ?appXL.Workbooks.Count
  25. ?appXL.Worksheets.Count
  26.  
  27. '====================================
  28. ?appXL.Worksheets.Count
  29.  16 
  30.  
  31. '====================================
  32. Set XL = CreateObject("ExcelApplication")
  33.  
  34. Set appXL = XL.Application
  35.  
  36. appXL.WindowState = 3
  37.  
  38. appXL.WorkBooks.Add
  39.  
  40. Set ws = appXL.ActiveSheet
  41.  
  42. ws.Cells(1,1).Value = "Test"
  43.  
  44. ws.Cells(2,1).Value = 100
  45.  
  46. ws.Range("A2:A5").FillDown
  47.  
  48.  
  49. tmp = ws.Range("A1:B5").CreateNames(True, False, False, False)
  50.  
  51. Set cell = ws.Range("A6")
  52.  
  53. cell.FormulaR1C1 = "=SUM(Test)"
  54.  
  55. ?cell.Value
  56.  400 
  57.